home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr29 / keycod.zip / KEYCODE.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-27  |  1KB  |  38 lines
  1. PROGRAM FindKeyCodes;                                       
  2. USES CRT;                                                            
  3. VAR Key: Char;                                              
  4. BEGIN                                                       
  5.   ClrScr;                       {Clears the Screen}                            
  6.   WHILE Key <> 'Q' DO           {Repeat this until you press Cap. Q}                            
  7.     BEGIN                                                   
  8.       Writeln ('Key: ');         {Displays Key:}                            
  9.       WHILE NOT KeyPressed DO;   {Searchs for 2 keystrokes to include}
  10.       WHILE KeyPressed DO        {Extended Character Set}
  11.         BEGIN                                       {[NEXT]}
  12.           Key := ReadKey;        {Actual obtaining of the keystrokes}                           
  13.           Writeln (Ord (Key));   {Displays the ordinal value of keystroke}                           
  14.         END                                                 
  15.       END                                                   
  16. END.                                                        
  17.                                 {Written by Rich Siegel}
  18.                                         {Freeware}
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.